Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System
Imports System.Data
Imports GTSDAL
Imports GTSDALTableAdapters
Namespace GTSSystem.BLL
    <System.ComponentModel.DataObject()> _
        Public Class RateType

        Private _rateTypeAdaptor As RateTypeTableAdapter = Nothing

        Protected ReadOnly Property RateTypeAdaptor() As RateTypeTableAdapter
            Get
                If _rateTypeAdaptor Is Nothing Then
                    _rateTypeAdaptor = New RateTypeTableAdapter
                End If
                Return _rateTypeAdaptor
            End Get
        End Property

        <System.ComponentModel.DataObjectMethod(ComponentModel.DataObjectMethodType.Select, True)> _
        Public Shared Function GetRateType() As RateTypeDataTable
            Try
                Dim RateTypeAdaptor As New GTSDALTableAdapters.RateTypeTableAdapter
                Return RateTypeAdaptor.GetRateType()
            Catch ex As Exception
                Throw
            End Try
        End Function

        <System.ComponentModel.DataObjectMethod(ComponentModel.DataObjectMethodType.Select, True)> _
        Public Shared Function GetRateTypeByID(ByVal RateTypeID As Integer) As RateTypeDataTable
            Try
                Dim RateTypeAdaptor As New GTSDALTableAdapters.RateTypeTableAdapter
                Return RateTypeAdaptor.GetRateTypeByID(RateTypeID)
            Catch ex As Exception
                Throw
            End Try
        End Function
    End Class

End Namespace